(math-fixnum-big): Use the variable math-bignum-digit-size.

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 9650bdffbcf04fd4845434da353fe828bc9a79ac..2816941f87aea711283fdaa0cd7873f1c773a7fa 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2222,7 +2222,7 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun math-fixnum-big (a)
   (if (cdr a)
-      (+ (car a) (* (math-fixnum-big (cdr a)) 1000))
+      (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size))
     (car a)))
 
 (defvar math-simplify-only nil)